object FImportaTXTContasPagar: TFImportaTXTContasPagar
  Left = 275
  Top = 192
  Width = 544
  Height = 319
  Caption = 'Importa arquivo texto para Contas Pagar'
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  OldCreateOrder = False
  Position = poScreenCenter
  Visible = True
  OnClose = FormClose
  OnCreate = FormCreate
  PixelsPerInch = 96
  TextHeight = 13
  object PageControl1: TPageControl
    Left = 0
    Top = 0
    Width = 536
    Height = 292
    ActivePage = TSDados
    Align = alClient
    TabIndex = 0
    TabOrder = 0
    object TSDados: TTabSheet
      Caption = 'Dados'
      object LImportados: TLabel
        Left = 273
        Top = 31
        Width = 261
        Height = 14
        AutoSize = False
        Caption = 'aaaa'
      end
      object LRegistros: TLabel
        Left = 4
        Top = 31
        Width = 261
        Height = 14
        AutoSize = False
        Caption = 'aaaa'
      end
      object BtnImporta: TBitBtn
        Left = 94
        Top = 1
        Width = 75
        Height = 25
        Caption = 'Importa'
        Enabled = False
        TabOrder = 0
        OnClick = BtnImportaClick
      end
      object BtnValidar: TBitBtn
        Left = 3
        Top = 1
        Width = 82
        Height = 25
        Caption = 'Validar Arquivo'
        TabOrder = 1
        OnClick = BtnValidarClick
      end
      object SGArquivo: TStringGrid
        Left = 0
        Top = 54
        Width = 528
        Height = 165
        Align = alBottom
        DefaultColWidth = 130
        RowCount = 2
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goRangeSelect, goColSizing]
        ParentFont = False
        TabOrder = 2
        RowHeights = (
          24
          24)
      end
      object Panel2: TPanel
        Left = 0
        Top = 219
        Width = 528
        Height = 45
        Align = alBottom
        TabOrder = 3
        object STStatus: TStaticText
          Left = 1
          Top = 1
          Width = 526
          Height = 17
          Align = alTop
          AutoSize = False
          TabOrder = 0
        end
        object PBar: TProgressBar
          Left = 1
          Top = 27
          Width = 526
          Height = 17
          Align = alBottom
          Min = 0
          Max = 100
          TabOrder = 1
        end
      end
    end
    object TSCriticas: TTabSheet
      Caption = 'Criticas'
      ImageIndex = 1
      object MCriticas: TMemo
        Left = 0
        Top = 33
        Width = 528
        Height = 224
        Align = alClient
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ReadOnly = True
        TabOrder = 0
      end
      object Panel1: TPanel
        Left = 0
        Top = 0
        Width = 528
        Height = 33
        Align = alTop
        TabOrder = 1
        object Label4: TLabel
          Left = 6
          Top = 8
          Width = 51
          Height = 13
          Caption = 'Impressora'
        end
        object BtnImprimir: TBitBtn
          Left = 376
          Top = 4
          Width = 64
          Height = 21
          Caption = '&Imprimir'
          TabOrder = 0
          OnClick = BtnImprimirClick
        end
        object CBImpressora: TComboBox
          Left = 62
          Top = 4
          Width = 193
          Height = 21
          ItemHeight = 0
          TabOrder = 1
        end
        object BtnMapearImpressora: TBitBtn
          Left = 260
          Top = 4
          Width = 101
          Height = 21
          Caption = 'Mapear Impressora'
          TabOrder = 2
          OnClick = BtnMapearImpressoraClick
        end
        object BitBtn1: TBitBtn
          Left = 448
          Top = 4
          Width = 64
          Height = 21
          Caption = '&Salvar'
          TabOrder = 3
          OnClick = BitBtn1Click
        end
      end
    end
  end
  object QContasPagar: TQuery
    BeforePost = QContasPagarBeforePost
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      
        'Select CP_DOCUMENTO,CP_DATADOCUMENTO,CP_FORNECEDOR,CP_DATATITULO' +
        ',CP_TIPODOCUMENTO,CP_PORTADOR'
      
        ',CP_PLANO,CP_DATAVENCIMENTO,CP_VALOR,CP_SALDO,CP_CENTROCUSTO,CP_' +
        'HISTORICO1,CP_HISTORICO2,CP_CONTACONTABIL'
      ',CODIGOEMPRESA,Cp_Origem'
      ''
      ',USUARIO,DATAMODIFICACAO, CP_FONTERECURSO'
      ''
      'From CONTASPAGAR'
      ''
      'Order by '
      'CP_Codigo')
    Left = 120
    Top = 192
  end
  object QFornecedor: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select FORN_CODIGO,FORN_CPFCNPJ from Fornecedor')
    Left = 272
    Top = 208
    object QFornecedorFORN_CODIGO: TIntegerField
      FieldName = 'FORN_CODIGO'
      Origin = 'BASE.FORNECEDOR.FORN_CODIGO'
    end
    object QFornecedorFORN_CPFCNPJ: TStringField
      FieldName = 'FORN_CPFCNPJ'
      Origin = 'BASE.FORNECEDOR.FORN_CPFCNPJ'
    end
  end
  object QPlanoContabilidade: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      
        'Select PLANOCONT_CODIGO,PLANOCONT_CODIGOCONTABIL  from PlanoCont' +
        'abilidade')
    Left = 312
    Top = 208
  end
  object QAux: TQuery
    DatabaseName = 'base'
    RequestLive = True
    SQL.Strings = (
      'Select * from PlanoContabilidade')
    Left = 352
    Top = 208
  end
  object PSetupDialog: TPrinterSetupDialog
    Left = 328
    Top = 24
  end
  object OpenDialog1: TOpenDialog
    Filter = 'Arquivo de texto|*.txt'
    InitialDir = './'
    Left = 416
    Top = 24
  end
end
